home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh94a.d64 / turtle-demo 9 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  360b  |  20 lines
  1. 1 REM TURTLE-DEMO: 'PATTERNS'
  2. 2 REM N. HEUSLER 11.91
  3. 3 :
  4. 10 SYS49152
  5. 20 !GRAPHICS
  6. 30 X=0:Y=0
  7. 110 I=I+1
  8. 120 !PEN0:!MOVEX,Y:X=X+1:Y=Y+1:!ANGLE270:!MODE1
  9. 121 M=0:FORJ=0TO7:L=0:K=RND(TI):IFK<I/100THENL=1
  10. 122 M=M+L*2^J:NEXT
  11. 130 !PATTERNM
  12. 140 !WALK320-I*2:IFI=100THEN:!FINISH
  13. 150 !TURNR90
  14. 160 !WALK200-I*2
  15. 170 !TURNR90
  16. 180 !WALK320-I*2
  17. 190 !TURNR90
  18. 200 !WALK199-I*2
  19. 210 GOTO110
  20.